Книги-online
Ch 11.htm
назад
|
содержание
|
вперед
Переключение изображений
Самый простой способ анимации —
переключение изображений. Рассмотрим это на примере. Создайте небольшое приложение,
выполнив следующие действия:
1. Создайте новый стандартный проект.
С этой целью выберите команду New
Project
(Создать новый проект) в меню
File
(Файл) и в окне выбора типа проекта дважды щелкните мышью на значке
Standard EXE.
2. Присвойте проекту имя
MyGraphics.
Для этого откройте окно свойств проекта, выбрав команду
Projecti Properties
(Свойства Project1) меню
Project
(Проект). После переименования проекта
эта команда будет называться
MyGraphics Properties.
3. Присвойте форме проекта имя FormForGraphics.
В свойство caption формы введите заголовок
Форма для работы с графикой.
4. Добавьте в форму кнопку управления
типа commandBution, дважды щелкнув мышью кнопку
CommandButton
на панели
элементов управления. Назовите эту кнопку cbcontrol и присвойте свойству Caption
значение
Изменить состояние.
Созданная в форме кнопка cbcontrol будет
служить для переключения изображений, выполняемых приложением
MyGraphics
по событию click этой кнопки.
5. Добавьте в форму три элемента
управления типа picture и назовите их picRed, picYellow и picGreen. Вставьте
В СВОЙСТВО Picture каждого объекта соответствующие цветам изображения светофора
из каталога \Common\Graphics\Icons\Trafric. Свойство visible для всех трех элементов
управления установите в состояние
False.
6. Добавьте в форму объект типа
image, в котором будет переключаться изображение, и назовите его imgStatus,
при этом свойство picture этого объекта оставьте пустым. Свойство visible для
данного элемента управления установите в состояние
True.
После выполнения приведенных выше
шагов форма приложения будет иметь вид, показанный на рис. 11.7.
Рис. 11.7.
Вид приложения
для переключения изображений
7. Откроите окно редактора и задайте
следующий код:
Dim fIgEnd As Integer
Private Sub Form_Load()
fIgEnd = 0
imgStatus.Picture = picRed.Picture
FormForGraphics-Caption = "Светофор"
End Sub
Private Sub cbControl_Click ()
If imgStatus.Picture = picRed.Picture
Then
imgStatus.Picture = picYellow.Picture
Elself imgStatus.Picture = picYellow.Picture
Then
imgStatus.Picture = picGreen.Picture
Else
imgStatus.Picture = picGreen.Picture
fIgEnd = 1
End If
If imgStatus.Picture = picGreen.Picture
And fIgEnd = 1 Then
imgStatus.Picture = picRed.Picture
fIgEnd
=
0
End If
End Sub
8. Запустите приложение на выполнение.
Нажатием кнопки
Изменить состояние
осуществляется последовательное переключение
состояния светофора с помощью присвоения свойству picture объекта imgStatus
нового значения.
В этом приложении показана возможность
переключения изображений из набора отдельных объектов, в которых эти изображения
содержатся. Однако для хранения необходимых изображений предпочтительнее использовать
массивы элементов управления или объекта imageList.
назад
|
содержание
|
вперед
